home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / Modes / gnuplotMode.tcl < prev    next >
Encoding:
Text File  |  1997-12-08  |  70.3 KB  |  2,526 lines  |  [TEXT/ALFA]
  1. #  
  2. # "gnuplotMode.tcl"  
  3. #                                    created: 26/4/97 {7:59:36 pm} 
  4. #                                last update: 8/12/97 {10:03:21 pm} 
  5. #  Author: Jeff Schindall
  6. #  E-mail: <mailto:schindall@nrl.navy.mil>
  7. #    mail: Naval Research Laboratory 
  8. #          Acoustics Division --- Code 7120
  9. #          4555 Overlook Ave SW
  10. #          Washington, DC, 20375 USA ]
  11. #    
  12. # gnuplotMode.tcl, Version 1.83       For  gnuplot 3.6
  13. #
  14. # This is a set of TCL proc's that allow the shareware Macintosh 
  15. # text editor Alpha to serve as a front end for GNUPLOT for 
  16. # Macintosh version 3.6. This script requires Alpha 7.0 or later.
  17. #
  18. # Just use 'shift-ctrl-g' to launch a gnuplot console
  19. # 
  20. # (Note: Vince updated this file for use with Alpha 7.0b4)
  21. #############################################################################
  22. #
  23. # Autoload procedures
  24. #
  25. #
  26. alpha::mode GPLT 1.8.1 dummyGPLT {*.gp *.gnu *.gnp *.gplt *.GP *.GNU *.GNP *.GPLT }  \
  27.         GnuplotMenu {
  28.     addMenu GnuplotMenu "•415"
  29.     set modeCreator(GPLT) GPLT
  30.     set modeCreator(GPSE) GPLT
  31.     # Set GLOBAL mode binding to bring up gnuplot Console
  32.     bind 'g' <sz> { GP_Console  }
  33.     bind 'n' <sc> { GP_NewWindow  }
  34. }
  35.  
  36. ########################################################################
  37. #
  38. #  This mode was written by Jeff Schindall.  Some code was pinched from 
  39. #  other TCL files distributed with Alpha and matlab.tcl.
  40. #   
  41. #  Comments, suggestions, and bug reports should be sent to Jeff at
  42. #     mailto:schindall@nrl.navy.mil
  43. #
  44. #  You should be able to find the most recent current version of this
  45. #  gnuplotMode.tcl and the server app script at 
  46. #      
  47. #      ftp://ftp.ee.gatech.edu/pub/mac/gnuplot
  48. #
  49. #   and the most recent bleeding edge version at 
  50. #
  51. #      ftp://wave1m.nrl.navy.mil/pub/gnuplotMode.tcl.gz
  52. #
  53. #######################################################################
  54. #                                                                        
  55. #     Version History:                                                
  56. #                                                                        
  57. #         1.6    12/23/96                                                   
  58. #         -----------------------------------------------
  59. #         Floating palatte now very usefull.  User can run a script
  60. #         by selecting a script menu item, or edit the script by
  61. #         selecting the script menu item with the option key held down
  62. #
  63. #         1.5.9b    12/10/96                                                   
  64. #         -----------------------------------------------
  65. #         repaired broken scripts menu
  66. #         added a "edit scripts" menu----eventually, this one
  67. #         will go away, but the functionality will be retained
  68. #
  69. #         1.5.9    12/05/96                                                   
  70. #         -----------------------------------------------
  71. #         repaired broken pwd display
  72. #
  73. #         1.5.8    12/05/96                                                   
  74. #         -----------------------------------------------
  75. #         plot '-' now works
  76. #         pause in demo-mode works better
  77. #         added option to rebuild scripts menu
  78. #
  79. #         1.5.7    11/13/96                                                   
  80. #         -----------------------------------------------
  81. #         Check OUTP event for "Sorry, " string
  82. #         so that help for unknown item will be sent to console
  83. #         rather than a new output terminal page
  84. #
  85. #         1.5.6    11/07/96                                                   
  86. #         -----------------------------------------------
  87. #          Fixed a few floating menu buggers
  88. #
  89. #         1.5.5    11/06/96                                                   
  90. #         -----------------------------------------------
  91. #          Added a "Scripts" menu which auto loads any script
  92. #         in gnuplots "Scripts" folder (or subfolder)
  93. #         Made terminal output window creation faster
  94. #                                                                        
  95. #         1.5.4    11/05/96                                                   
  96. #         -----------------------------------------------
  97. #          Added terminal output windows for PS/TeX/MIF/etc.
  98. #                                                                        
  99. #         1.5.3    11/02/96                                                   
  100. #         -----------------------------------------------
  101. #          See 1.5.2
  102. #                                                                        
  103. #         1.5.2    11/02/96                                                   
  104. #         -----------------------------------------------
  105. #          Attempt to fix ome context switching weirdness
  106. #                                                                        
  107. #         1.5.1    10/23/96                                                   
  108. #         -----------------------------------------------
  109. #          Added some more apple event and floating palatte 
  110. #           options.
  111. #
  112. #         1.5    10/22/96                                                   
  113. #         -----------------------------------------------
  114. #          Slight bug fixes
  115. #
  116. #         1.5b3    07/18/96                                                   
  117. #         -----------------------------------------------
  118. #          Now works with Alpha 6.1 and higher.
  119. #         Added Floating menu...
  120. #
  121. #         1.5b2    07/16/96                                                   
  122. #         -----------------------------------------------
  123. #          Now works with Alpha 6.1 and higher.
  124. #
  125. #         1.5b1    07/02/96                                                   
  126. #         -----------------------------------------------
  127. #          Modify code so that it is compliant with the new
  128. #            mode conventions Pete added to 6.2 (see changes file).
  129. #         This script should still work for Alpha pre 6.2!
  130. #          Nifty self-installer!
  131. #                                                                          
  132. #                                                                          
  133. #         1.4.4    04/26/96                                                   
  134. #         -----------------------------------------------
  135. #          Modify trap for broken eventhandler on 68k                 
  136. #              so that pause works correctly and so that        
  137. #              gnuplot can bring itself to the front            
  138. #                                                                          
  139. #                                                                          
  140. #         1.4.3    04/24/96                                                  
  141. #         -----------------------------------------------
  142. #          Add trap for broken eventhandler on 68k                     
  143. #                                                                          
  144. #         1.4.2    04/17/96                                                
  145. #         -----------------------------------------------
  146. #          Let alpha do bookkeeping on globals                         
  147. #                                                                          
  148. #         1.4.1    04/15/96                                                       
  149. #         -----------------------------------------------
  150. #          Repaired broken quit and switchto menu options         
  151. #                                                                          
  152. #                                                                          
  153. #         1.4.0    04/14/96                                                       
  154. #         -----------------------------------------------
  155. #          GPLT mode preferences accessable from                  
  156. #            config:currentmode:flags... menu            
  157. #          Keyword coloring now works and is auto-sourced
  158. #            whenever GPTLPrefs.tcl is closed                          
  159. #          Reorganized and added to gnuplot menu            
  160. #          Reorganized all mode specifice procedures and 
  161. #             variable names                                        
  162. #                                                                          
  163. #                                                                          
  164. #         1.3.9    04/10/96                                                       
  165. #         -----------------------------------------------
  166. #          Keyword coloring editable from gnuplot pref menu.        
  167. #          gnuplot pref menu re-arranged                                  
  168. #          this package should display the path                       
  169. #             on the message bar                                              
  170. #                                                                          
  171. #                                                                          
  172. #         1.3.8    03/13/96                                                       
  173. #         -----------------------------------------------
  174. #          Re-arranged some code.                                  
  175. #                                                                                   
  176. #                                                                          
  177. #         1.3.7    03/13/96                                                       
  178. #         -----------------------------------------------
  179. #          Added support for cwd display on message bar    
  180. #                                                                                   
  181. #                                                                          
  182. #         1.3.6    02/26/96                                                       
  183. #         -----------------------------------------------
  184. #          Added graph button preference and repaired        
  185. #        my broken closeHook procedure                         
  186. #                                                                          
  187. #         1.3.5    02/01/96                                                       
  188. #         -----------------------------------------------
  189. #          Some minor fixes to console routines                
  190. #                                                                          
  191. #                                                                        
  192. #         1.3.4    02/01/96                                                       
  193. #         -----------------------------------------------
  194. #       Added "iconic" graph window which switches to             
  195. #               the gnuplot application                            
  196. #          Added a "gnuplot prefs" submenu                    
  197. #                                                                        
  198. #         1.3.3    12/20/95                                                       
  199. #         -----------------------------------------------
  200. #       Added Live History window                                       
  201. #          Added a function sub-menu                            
  202. #                                                                         
  203. #                                                                        
  204. #         1.3.2    12/15/95                                                       
  205. #         -----------------------------------------------
  206. #       History dump Really working this time.......           
  207. #          Included a kludge eventHander: GPIC EXEC        
  208. #             for Dave (temporary)                                
  209. #                                                                        
  210. #         1.3.1    12/14/95                                                       
  211. #         -----------------------------------------------
  212. #          Consolidated console and script editor modes.    
  213. #          Supports server once again.                           
  214. #       History dump working.......                            
  215. #                                                                        
  216. #                                                                        
  217. #         1.3    12/09/95                                                           
  218. #         -----------------------------------------------
  219. #          Should work with gnuplot app and              
  220. #          Fixed an "unknown" bug---thanks Vince            
  221. #          Files with gnuplot creator open in gnuplot mode
  222. #          Added several eventHandler's to work with the          
  223. #         gnuplot's new personality module                     
  224. #       NOTE:  No longer supports the gnuplot server app,      
  225. #              but I might add it back in later...             
  226. #                                                                        
  227. #         1.2.5    8/29/95                                            
  228. #         -----------------------------------------------
  229. #           File type as well as creator settings in place
  230. #                                                                        
  231. #                                                                        
  232. #         1.2.4    8/28/95                                            
  233. #         -----------------------------------------------
  234. #            I honestly don't recall                                
  235. #                                                                        
  236. #         1.2.3    8/27/95                                            
  237. #         -----------------------------------------------
  238. #           Fixed a few prompt related items.                
  239. #            I need to clean up the code a bit                
  240. #            especially in the console output routines        
  241. #                                                                        
  242. #         1.2.2    8/23/95                                            
  243. #         -----------------------------------------------
  244. #           Repaired help/prompting/etc which broke in    
  245. #                1.2.1                                                    
  246. #            DoSelection works for multiple lines            
  247. #                                                                        
  248. #                                                                        
  249. #         1.2.1    8/23/95                                            
  250. #         -----------------------------------------------
  251. #           Now works with unthreaded 68k systems                       
  252. #                                                                        
  253. #                                                                        
  254. #         1.2    8/23/95                                                
  255. #         -----------------------------------------------
  256. #           Deal w/"pause -1"     properly                                   
  257. #            cmd-dbl-click now works for all prompts         
  258. #            Cleaned up set output creator                        
  259. #                                                                          
  260. #                                                                        
  261. #         1.1    8/22/95                                                
  262. #         -----------------------------------------------
  263. #           Set output creators from gnuplot menu            
  264. #            Quit Working properly once again                    
  265. #            Added ERRP eventHandler for those w/o the             
  266. #          Thread Manager                                        
  267. #                                                                        
  268. #         1.0    8/21/95  (these release numbers are backwards)        
  269. #         -----------------------------------------------
  270. #           First working release                                 
  271. #                                                                        
  272. #    ============= Below were really beta's ==================== 
  273. #                                                                        
  274. #         1.0.6    8/17/95                                            
  275. #         -----------------------------------------------
  276. #           Cleaned up several procs                            
  277. #            Quit now works properly                                
  278. #                                                                        
  279. #                                                                        
  280. #         1.0.5    8/16/95                                            
  281. #         -----------------------------------------------
  282. #             replaced 'dosc' w/AEBuild                            
  283. #             added eventHandler  (thanks Dave)                    
  284. #             dumped "clean" window since Pete will            
  285. #                add this functionality to "new" in 6.0.2    
  286. #                                                                        
  287. #                                                                        
  288. #         1.0.4    8/12/95                                            
  289. #         -----------------------------------------------
  290. #             new modeVar to keep console "clean"             
  291. #                                                                        
  292. #                                                                        
  293. #         1.0.3    8/12/95                                            
  294. #         -----------------------------------------------
  295. #             Fixed bugs in closing console window            
  296. #             Added wristwatch cursor while waiting for gnuplot        
  297. #                                                                        
  298. #         1.0.2    8/11/95                                            
  299. #         -----------------------------------------------
  300. #         When console window is closed the gnuplot    
  301. #              app is quit and user is prompted to save    
  302. #          the Alpha/gnuplot history                        
  303. #                                                                        
  304. #         Command-Dbl-Click anywhere between gnuplot     
  305. #              prompts to select gnuplot output.  Nice        
  306. #          if you send term output to the console.        
  307. #                                                                        
  308. #         1.0.1    8/8/95                                            
  309. #         -----------------------------------------------
  310. #            Handles multiplot mode                                
  311. #             set output file CREATOR modeVar    (not yet)    
  312. #                                                                         
  313. #                                                                        
  314. #         1.0    8/7/95                                                
  315. #         -----------------------------------------------
  316. #            Now works with 3.6 (but not with 3.5)            
  317. #                                                                         
  318. #    =======================================================        
  319. #                                                                         
  320. #         0.4    8/3/95                                                
  321. #         -----------------------------------------------
  322. #           user specified colorizing through check pop-up       
  323. #             menu in GNUc console.  You must quit alpha and       
  324. #             restart to see the effects.  Also, you must          
  325. #         make sure that keywords and colors don't overlap.    # 
  326. #                                                              
  327. #                                                                        
  328. #         0.3    8/3/95                                                
  329. #         -----------------------------------------------
  330. #             Console position remembered between sessions
  331. #                                                                        
  332. #              Enabled command history to be dumped to a window        
  333. #                                                                  
  334. #                                                                        
  335. #         0.2    8/2/95                                                
  336. #         -----------------------------------------------
  337. #             Added a    Switch to gnuplot    menu option            
  338. #                                                                        
  339. #             Added Console modeVar                                        
  340. #                                                                        
  341. #         Added run in background modeVar                           
  342. #                                                                        
  343. #             Command History mostly working in console.    
  344. #                                                                        
  345. #             Cleaned    things up a    bit.                            
  346. #                                                                        
  347. #                                                                        
  348. #         0.1    8/1/95                                                
  349. #         -----------------------------------------------
  350. #             converted matlab.tcl to gnuplot.tcl            
  351. #                                                                        
  352. #                                                                        
  353. ###############################################################
  354.  
  355.  
  356.  
  357. proc dummyGPLT  {} {}
  358. proc GnuplotMenu {} {}
  359. hook::register mode::init GP_GraphButton GPLT
  360. hook::register mode::editPrefsFile GP_editCurrentModePrefs GPLT
  361. hook::register dialog::modifyModeFlags GP_modifyModeFlags GPLT        
  362. hook::register closeHook GP_CloseHook GPLT
  363. hook::register deactivateHook GP_DeactivateHook GPLT
  364. hook::register activateHook GP_ActivateHook GPLT
  365.  
  366. newPref f elecRBrace {0} GPLT
  367. newPref v prefixString {# } GPLT
  368. newPref f electricSemi {0} GPLT
  369. newPref v wordBreak {[a-zA-Z0-9_]+} GPLT
  370. newPref f elecLBrace {0} GPLT
  371. newPref f wordWrap {0} GPLT
  372. newPref v wordBreakPreface {[^a-zA-Z0-9_]} GPLT
  373. newPref v tabSize {3} GPLT
  374. newPref v prefixString {# } GPLT
  375. newPref f NevrSavHist {0} GPLT
  376. newPref f LiveHist {1} GPLT
  377. newPref f GraphButton {1} GPLT
  378. newPref f EventHandler {1} GPLT
  379. newPref v bracesColor blue GPLT
  380. newPref v bracesColor blue GPLT
  381. newPref v stringColor green GPLT
  382. newPref v commentColor red GPLT
  383. set gpTermCt 0
  384.  
  385. ###BGK
  386.    # (DO NOT ERASE Previous line)
  387.    # 
  388.    # NOTE:  Some coloring is controlled via 
  389.    #        Config:current mode:flags... menu
  390.    #
  391.  
  392.       ### BLUE words ###
  393.  
  394. set gpBlueWords { 
  395.     console  set show plot splot \\
  396.     autoscale      binary         boxxyerrorbars bugs
  397.     call           cd             clear          co-ordinates
  398.     comments             environment    exit
  399.     expressions    fit                       if
  400.     introduction   line-editing   load           pause
  401.     plot           print          pwd            quit
  402.     replot         reread         reset          save
  403.     seeking-assistance set            shell          show
  404.     splot          startup        style          substitution
  405.     test           update         userdefined    xyerrorbars
  406.     xerrorbars yerrorbars
  407.     "Copyright(C) 1986 - 1995" "Copyright(C) 1986 - 1996"
  408. } 
  409.  
  410.  
  411.  
  412.       ### RED words ###
  413.  
  414. set gpRedWords { 
  415.     topics available: Subtopics available  
  416.     server macintosh Press return for more: Help topic: 
  417.     Subtopic of {G N U P L O T} {(pre 3.6)}  3.5 3.6 
  418.     version for 68k ppc Power Macintosh patchlevel 
  419.     last modified first second
  420. } 
  421.  
  422.  
  423.      ### GREEN WORDS ###
  424.  
  425. set gpGreenWords {  
  426.     ranges         smooth         data-file      datafile          
  427.     parametric     locale         nosquare       errorbars
  428.     gnuplot        gnuplot>       term           square         
  429.     angles         arrow          autoscale      bar
  430.     bmargin        border         boxwidth       clabel
  431.     clip           cntrparam      contour        data
  432.     dgrid3d        dummy          encoding       format
  433.     function       grid           hidden3d       isosamples
  434.     key            keytitle       label          lmargin
  435.     logscale       mapping        margin         missing
  436.     multiplot      mx2tics        mxtics         my2tics
  437.     mytics         mztics         noarrow        noautoscale
  438.     noborder       noclabel       noclip         nodgrid3d
  439.     nokey          nolabel        nologscale     nomultiplot
  440.     nomx2tics      nomxtics       nomy2tics      nomytics
  441.     nomztics       noparametric   nopolar        nosurface
  442.     nox2dtics      nox2mtics      nox2tics       nox2zeroaxis
  443.     noxdtics       noxmtics       noxtics        noxzeroaxis
  444.     noy2dtics      noy2mtics      noy2tics       noy2zeroaxis
  445.     noydtics       noymtics       noytics        noyzeroaxis
  446.     nozdtics       nozeroaxis     nozmtics       noztics
  447.     offsets        origin         output         parametric
  448.     pointsize      polar          punctuation    rmargin
  449.     rrange         samples        size           specify
  450.     style          surface        syntax         terminal
  451.     tics           ticscale       ticslevel      time
  452.     timefmt        title          tmargin        trange
  453.     urange         view           vrange         x2dtics
  454.     x2label        x2mtics        x2range        x2tics
  455.     x2zeroaxis     xdata          xdtics         xlabel
  456.     xmtics         xrange         xtics          xzeroaxis
  457.     y2dtics        y2label        y2mtics        y2range
  458.     y2tics         y2zeroaxis     ydtics         ylabel
  459.     ymtics         yrange         ytics          yzeroaxis
  460.     zdtics         zero           zeroaxis       zlabel
  461.     zmtics         zrange         ztics
  462.     threaded  
  463. } 
  464.  
  465.  
  466.  
  467.     ### MAGENTA WORDS ###
  468.  
  469. set gpMageWords  { 
  470.     with lines using  points  multiplot> mac gx eps enh
  471.     info-gnuplot dartmouth edu bug-gnuplot { \@ }
  472.     Send comments and requests for help to
  473.     Send bugs, suggestions and mods to
  474. } 
  475.                    
  476.  
  477.  
  478.     ### CYAN WORDS ###
  479.  
  480. set gpCyanWords  {   post mac     macintosh      texdraw
  481.     aifm           atari          dumb           enhpost
  482.     epson          epson180       epson60        fig
  483.     gpic           hpljii         imagen         iris4d
  484.     latex          linux          mf             mif
  485.     mtos           nec-cp6        pbm            pcl5
  486.     postscript     pslatex        regis          starc
  487.     table          tandy60        tgif           uniplex
  488.     vdi            windows        unknown        pstricks
  489.     png            dxf            cgm            gif
  490.     emtex          pstex          eepic          tpic
  491.     pstricks       texdraw
  492.     Thomas Williams, Colin Kelley and many others 
  493.     Russell Lang, Dave Kotz, John Campbell. Gershon Elber
  494. } 
  495.  
  496. #
  497. # Color keywords for GPLT mode
  498. #
  499. regModeKeywords  -i "\}" -i "\{"  -i ">" -i "<" -i ")" -i "("  -i "/" -i "\\"  \
  500.     -i "\]" -i "\[" -i "\$" -i "\'" -i "\`" -i ">" -i "<" -i "^" -i "_" \
  501.     -I $GPLTmodeVars(bracesColor) \
  502.      -e {#} -c $GPLTmodeVars(commentColor) \
  503.     -s $GPLTmodeVars(stringColor)  \
  504.     -k red GPLT $gpRedWords
  505. regModeKeywords -a -k blue GPLT $gpBlueWords
  506. regModeKeywords -a -k green GPLT $gpGreenWords
  507. regModeKeywords -a -k magenta GPLT $gpMageWords
  508. regModeKeywords -a -k cyan GPLT $gpCyanWords
  509.  
  510. #  (DO NOT ERASE NEXT TWO LINES)
  511. ###EGK
  512.  
  513.  
  514.  
  515. #define saved globals
  516. ensureset GnuplotSig                  {GPLT}  
  517. ensureset gp_CREA                  {ALFA}  
  518. ensureset gp_TYPE                  {TEXT}  
  519. ensureset gp_CreatorList [list] 
  520. ensureset gp_TypeList [list] 
  521. ensureset gp_CreatorNames [list] 
  522. ensureset gp_GEOM [list]
  523. ensureset gp_HistGEOM [list ]
  524. ensureset headerSuffices {$GPLTmodeSuffixes}
  525. ensureset sourceSuffices {$GPLTmodeSuffixes}
  526.  
  527. if {[llength $gp_CreatorList] == 0 \
  528.  || [llength $gp_CreatorList] != [llength $gp_CreatorNames] \
  529.  || [llength $gp_CreatorList] != [llength $gp_TypeList]} {
  530.     set gp_CreatorList [list ALFA GPLT]
  531.     set gp_TypeList [list  TEXT TEXT]
  532.     set gp_CreatorNames [list  alpha gnuplot]
  533.     set gp_CREA {ALFA} 
  534.     set gp_TYPE {TEXT}
  535. }
  536.  
  537. #remove unused, previously saved globals
  538. if { [info exists GPLTmodeVars(FSIG)]}  { removeArrDef  GPLTmodeVars FSIG
  539.                                                         unset GPLTmodeVars(FSIG)
  540.                                                      } 
  541. if { [info exists GPLTmodeVars(CREA)]}  { removeArrDef  GPLTmodeVars  CREA
  542.                                                         unset GPLTmodeVars(CREA)
  543.                                                      } 
  544. if { [info exists GPLTmodeVars(TYPE)]}  { removeArrDef  GPLTmodeVars TYPE
  545.                                                         unset GPLTmodeVars(TYPE)
  546.                                                      } 
  547.  
  548.  
  549. #############################################################################
  550. #
  551. #  global variables
  552. #
  553.  
  554. set gp_CommandHist [list]
  555. set gp_CommandNum 0
  556.  
  557. set gp_Prompt       "gnuplot> "
  558. set gp_MultiPrompt  "multiplot> "
  559. set gp_ContPrompt   "> "
  560. set gp_HelpPrompt   ": "
  561.  
  562. set gp_Prompts [list $gp_Prompt $gp_ContPrompt $gp_MultiPrompt ]
  563.  
  564. set gp_Console  "  gnuplot  "
  565. set gp_Hist     "  history  "
  566. set gp_Graph     "  graph  "
  567. set gp_sl [list]
  568.  
  569. #############################################################################
  570. #
  571. #  Bind some keys
  572. #
  573.  
  574. # Editing .gnu files
  575.  
  576. bind '\r' <z>  GP_DoLine             "GPLT"
  577.  
  578. # Command Window
  579.  
  580. bind '\r'      GP_CarriageReturn     "GPLT"
  581. bind up        GP_PrevCommand        "GPLT"
  582. bind down      GP_NextCommand        "GPLT"
  583. bind '1'  <c>  GP_Console            "GPLT"
  584. bind '2'  <c>  GP_Activate           "GPLT"
  585. bind '3'  <c>  GP_DumpHistory        "GPLT"
  586. bind 'f'  <sc>  GP_SaveAndExecute    "GPLT"
  587.  
  588.  
  589. # Repeat menu keys for command window
  590.  
  591. set gp_Launched {0}
  592.  
  593.  
  594.  
  595.  
  596. #############################################################################
  597. #
  598. #  gnuplot Menu stuff
  599. #
  600.  
  601.  menu -n    $GnuplotMenu -p GnuplotMenuItem    {                         
  602.      "/1console"                                                     
  603.      "/2graph"                                                     
  604.      "/3history"                                                     
  605.     "(-"    
  606.      "setWorkingFolder..."
  607.      "/P<UchoosePlotFile..."
  608.       "/L<Uload..."                                         
  609.      {menu -n "saveSettings" -p GnuplotMenuItem  {
  610.                   "/S<Uall"                  
  611.                  "(-"
  612.                  "setCmds" 
  613.                  "functions"         
  614.                 "variables"    
  615.             }
  616.      }
  617.      "(-"                                                                                                                                  
  618.      "/N<UnewScriptWin"                                                 
  619.       "/F<UsaveAndExecute"                                         
  620.     "(-"    
  621.      {menu  -s -m -n mathFunctions -p GnuplotMenuItem  {
  622.          {menu  -s -m -n Trigonometric -p GnuplotMenuItem  {
  623.         "cos"
  624.         "tan"
  625.         "sin"
  626.          }}
  627.          {menu  -s -m -n InverseTrig -p GnuplotMenuItem  {
  628.          "acos"
  629.          "asin"
  630.         "atan"         
  631.         }}
  632.          {menu  -s -m -n Hyperbolic -p GnuplotMenuItem  {
  633.         "cosh"
  634.         "sinh"
  635.         "tanh"
  636.         }}
  637.          {menu  -s -m -n special -p GnuplotMenuItem  {
  638.         "erf"            
  639.         "erfc"           
  640.         "inverf"                                  
  641.         "(-"
  642.         "gamma"                                       
  643.         "igamma"                        
  644.         "lgamma"                                      
  645.         "(-"
  646.         "ibeta"                                        
  647.          }}
  648.          {menu  -s -m -n bessel -p GnuplotMenuItem  {
  649.         "besj0"
  650.         "besj1"
  651.         "besy0"
  652.         "besy1"         
  653.         }}
  654.         "(-"
  655.         "abs"  
  656.         "arg"               
  657.         "sgn"     
  658.         "sqrt"
  659.         "(-"
  660.         "exp"
  661.         "log"
  662.         "log10"                                  
  663.         "(-"
  664.         "ceil"           
  665.         "floor" 
  666.         "rand"
  667.         "norm"
  668.         "invnorm"
  669.         "(-"
  670.         "real" 
  671.         "imag"
  672.         "int"
  673.             }
  674.         }
  675.      "(-"    
  676.      "/M<UdoSelection"                                             
  677.      "doLine"                                                         
  678.      "(-"
  679.      {menu -n gnuplotOptions -p GnuplotMenuItem     {         
  680.         "setPointSize..."
  681.          "(-"    
  682.         "/H<UclearHistory"
  683.          "(-"    
  684.           {menu -n setOutputCreator -p GnuplotMenuItem     {         
  685.             "select..."                                                 
  686.             "add..."                                                     
  687.              "delete..."                                                 
  688.             }                                                                 
  689.         }    
  690.         "keywordColoring..."                
  691.          }
  692.     }                
  693.     "readme..."
  694.      "/2switchTo gnuplot"                                         
  695.      "/Q<Uquit gnuplot"                                             
  696.  }                                                                         
  697.                                                                              
  698.  
  699.      # Attempt to overload the following command keys:
  700.      #
  701.        #  Command-1  :  Console
  702.         #  Command-2  :  Graph
  703.         #  Command-3  :  History
  704.                         
  705.                         
  706.                         
  707.  proc    GnuplotMenuItem {menu item} {                                 
  708.  #global GnuplotMenu                                                     
  709.      switch $item {                                                 
  710.             "console"                GP_Console                     
  711.             "graph"                     GP_Activate                     
  712.             "gnuplot"                     GP_Activate                     
  713.             "history"                GP_DumpHistory                     
  714.             "newScriptWin"            GP_NewWindow         
  715.             "choosePlotFile..."        GP_ChoosePlotFile         
  716.             "saveAndExecute"         GP_SaveAndExecute         
  717.             "load..."                 GP_LoadScript             
  718.             "all"                     { GP_SaveSettings "" }             
  719.             "setCmds"                 { GP_SaveSettings "set" }             
  720.             "functions"                 { GP_SaveSettings "fun" }             
  721.             "variables"                 { GP_SaveSettings "var" }             
  722.             "doSelection"             GP_DoSelection             
  723.             "doLine"                    GP_DoLine                          
  724.             "switchTognuplot"        GP_Activate                 
  725.             "select..."                 GP_SelectCreator         
  726.             "add..."                     GP_AddCreator             
  727.             "delete..."                 GP_DeleteCreator         
  728.             "clearHistory"            GP_ClearHistory             
  729.             "quitgnuplot"             GP_Quit                     
  730.             "keywordColoring..."        editCurrentModePrefs
  731.             "setWorkingFolder..."   GP_SetCWD
  732.             "setPointSize..."       GP_SetPTSZ
  733.             "readme..."                 GP_Readme
  734.             "labels..."                { GP_Dialog "labl" }
  735.             "line styles..."            { GP_Dialog "line" }
  736.             "text format..."            { GP_Dialog "text" }
  737.              "labels..."                { GP_Dialog "labl" }
  738.              "gxText"                { GP_Dialog "gxtx" }
  739.              "offsets..."             { GP_Dialog "oset" }
  740.             default                    { insertText [string tolower $item ] () 
  741.                                           backwardChar    
  742.                                      }
  743.             }                                                                 
  744.  }                                                                         
  745.                                                                              
  746. #############################################################################
  747. #
  748. #  setup the event handler for Alpha/gnuplot interapp communication
  749. #  This file only works with Alpha 7.0 or newer so we assume
  750. #  eventHandling actually works.
  751. #
  752.  
  753. if { 1 } {
  754.    # Setup event Handler for STDOUT
  755.       eventHandler GPSE OUTP "GP_STDOUThandler"  
  756.     
  757.     # Setup event Handler for systems w/o ThreadManager
  758.       eventHandler GPSE ERRP "GP_STDERRhandler"
  759.     
  760.     # *ICInitializeCommand // This initializes the console.  
  761.     # Alpha eventhandler is needed.
  762.     # 'GPIC init'
  763.      eventHandler GPIC init "GP_ConsoleH"
  764.     # 
  765.     # *ICInitializePath // sends the working directory as 
  766.    # stored in preferences.
  767.     # Since you aren't displaying the working directory anywhere, 
  768.    # we can ignore
  769.     # this for now.
  770.     # 'GPIC path', contains a string in the direct object.
  771.      eventHandler GPIC path "GP_SendPath"
  772.     # 
  773.     # ICExecute // Tells the console to execute a gnuplot command.  
  774.    # I can't think
  775.     # of a reason for this one in Alpha.  The menuing system uses 
  776.    # this one in the current console.  We could define an event however.
  777.     # 
  778.     # 
  779.     # ICInsertCommand // Might be slick.  An example of what this 
  780.    # does is where
  781.     # functions get pasted into the command line.  Not absolutely necessary
  782.     # though.
  783.    # 'GPIC' 'inse'
  784.     eventHandler GPIC inse "GP_INSEhandler"
  785.     # 
  786.     # ICComeToFront  // The function will bring Alpha to the front.  
  787.    # No handler needed.
  788.     # 
  789.     # *ICBringGnuplotToFront // Handler needed.  When you get this one, bring
  790.     # gnuplot to the front.
  791.     # 'GPIC tofr'
  792.      eventHandler GPIC tofr "GP_ActivateH"
  793.     # 
  794.     # *ICHandleAEReply // You'll get this one if somebody used a 
  795.    # gnuplot menu to
  796.     # do something which necessitated a reply from gnuplot. The 
  797.    # gnuplot interface
  798.     # will pass the reply to you for display.
  799.     # 'GPIC repl', handle this one just like the reply from your exec event.
  800.      eventHandler GPIC repl "GP_STDERRhandler"
  801.     # 
  802.     # *ICMakeNewDocument  // It sounds like this one is working already.
  803.     # 'core crel'
  804.      eventHandler core crel "GP_NewWindowH"
  805.     # 
  806.     # *ICOpenDocument // Alpha already knows about this one.
  807.     # --already defined in alpha---
  808.  
  809.     # The event 'GPIC' 'cbye' is now sent whenever gnuplot quits.
  810.    # This will let you close the console if somebody quits 
  811.    # gnuplot some other way. You could
  812.     # use this to eliminate your 'quit' trapping if you want.
  813.      eventHandler GPIC cbye "GP_CloseH"
  814.     # I also defined a new event: 'GPIC' 'EXEC'.  All you need to 
  815.    # do is take the
  816.     # data and send it back to gnuplot as a 'GPSE' 'exec' event. 
  817.    # This is a kludge
  818.     # to make the commands in the gnuplot app menus work. 
  819.    # It will eventually go away.
  820.      eventHandler GPIC EXEC "GP_Kludge"
  821.     
  822.     proc GP_Kludge {it} {
  823.        set outit  [GP_filtercurlyq $it]
  824.       GP_STDERR $outit
  825.       if { $it == "Unable to find process" } GP_Quit
  826.       return 0
  827.      }    
  828.      
  829.     proc GP_STDERRhandler {it} {
  830.         global gp_cwd
  831.         set outit  [GP_filtercurlyq $it]
  832.         GP_ExtractPath $it
  833.         GP_Results $outit
  834.         if { $it == "Unable to find process" } GP_Quit
  835.        return 0
  836.     }
  837.     
  838.     proc GP_STDOUThandler {it} {
  839.         global gp_cwd gp_Out gpTermCt
  840.         global win::Modes gp_Console gp_Graph win::Modes 
  841.         global GPLTmodeVars gp_Launched gp_GEOM
  842.         global gp_Prompt  gp_cwd GnuplotMenu 
  843.     
  844.         set outit  [GP_filtercurlyq $it]
  845.         GP_ExtractPath $it
  846.         set wins [winNames]    
  847.         
  848.         set itLen [ string length "$it" ]
  849.         set termID [ string range "$outit" 0 20 ]
  850.         set termType [ string range "$it" [expr $itLen -25] [expr $itLen -1] ] 
  851.         
  852.         if { [ string first "Sorry," "$termID" ] == 0 } {
  853.             insertText -w  $gp_Console "\n$outit"
  854.             return
  855.             
  856.         } elseif { [ string first "% GNUPLOT: LaTeX" "$termID" ] == 0 } {           
  857.             incr gpTermCt 1
  858. #            set gp_Out [getline "Enter name of output console?" "* TeX output $gpTermCt *" ]
  859.             set gp_Out "* TeX output $gpTermCt *"
  860.             set theMode "TeX"
  861.             
  862.         } elseif { [string first "%!PS-Adobe" "$termID" ] == 0 } {
  863.             incr gpTermCt 1
  864. #            set gp_Out [getline "Enter name of output console?" "* PS output $gpTermCt *" ]
  865.             set gp_Out "* PS output $gpTermCt *"
  866.             set theMode "PS"
  867.             
  868.         } elseif { [string first "<MIFFile 3.00>" "$termID" ] == 0 } {
  869.             incr gpTermCt 1
  870. #            set gp_Out [getline "Enter name of output console?" "* MIF output $gpTermCt *" ]
  871.             set gp_Out "* MIF output $gpTermCt *"
  872.             set theMode "PS"
  873.             
  874.         } elseif { [string first "% GNUPLOT: dxf" "$termID" ] >= 0 } {
  875.             incr gpTermCt 1
  876. #            set gp_Out [getline "Enter name of output console?" "* misc output $gpTermCt *" ]
  877.             set gp_Out "* misc output $gpTermCt *"
  878.             set theMode "TEXT"
  879.             
  880.         } elseif { [string first "if unknown cmbase" "$termID" ] == 0 } {
  881.             incr gpTermCt 1
  882. #            set gp_Out [getline "Enter name of output console?" "* MF output $gpTermCt *" ]
  883.             set gp_Out "* MF output $gpTermCt *"
  884.             set theMode "TeX"
  885.             
  886.         } elseif { [string first "#Curve" "$termID" ] == 0 } {
  887.             incr gpTermCt 1
  888. #            set gp_Out [getline "Enter name of output console?" "* misc output $gpTermCt *" ]
  889.             set gp_Out"* misc output $gpTermCt *"
  890.             set theMode "TEXT"
  891.             
  892.         } elseif { [ string index "$termID" 0  ] == " " && [ string first "TERM:“dumb”" "$termType" ] > 0 } {
  893.             set ns "\n"
  894.             append ns $outit
  895.             set outit "$ns"
  896.             set gp_Out $gp_Console
  897.             #set theMode "TEXT"
  898.  
  899.         } elseif { ![info exists gp_Out ] || [lsearch $wins $gp_Out ] < 0 } {
  900.             incr gpTermCt 1
  901. #            set gp_Out [getline "Enter name of output console?" "* misc output $gpTermCt *" ]
  902.             set gp_Out "* misc output $gpTermCt *"
  903.             set theMode "TEXT"
  904.         }
  905.  
  906.         if { $gp_Out == "" } {set gp_Out $gp_Console }
  907.         
  908.         if {  [lsearch $wins $gp_Out ]  < 0 } { 
  909.             new  -n $gp_Out -m $theMode
  910.             #set wins [winNames]
  911.             set gp_Out [lindex [winNames] 0]
  912.         } else {
  913.             #catch [ bringToFront $gp_Out ] ans
  914.             #if { ![info exists ans] } { return }
  915.         }
  916.         
  917.         insertText -w $gp_Out $outit
  918.         GP_Console
  919.         if { $it == "Unable to find process" } GP_Quit
  920.        return 0
  921.     }
  922.     
  923.     proc GP_INSEhandler {it} {
  924.     global gp_Console gp_TYPE gp_CREA GnuplotSig
  925.         set res [GP_filtercurlyq $it]
  926.         set wins [winNames]
  927.         if { ( "$res" != "\n" ) & ( "$res" != "" ) & ( "$res" != "\r" ) } {
  928.             if { [ lsearch $wins $gp_Console  ] >= 0} {
  929.                 bringToFront $gp_Console    
  930.             }        
  931.         }        
  932.         
  933.         goto [maxPos]        
  934.         insertText -w $gp_Console $res
  935.         
  936.        
  937.        set paren  [string first "()" $res ]
  938.  
  939.        if { $paren >= 1 } {
  940.            goto [expr [maxPos] - $paren + 2]
  941.        }
  942.               
  943.        if { "$res" == "\r" }  {
  944.           GP_SendCommand "" 3600
  945.        } elseif { "$res" == "\n" }  {
  946.           GP_SendCommand "" 3600 
  947.        } elseif { "$res" == "" }  {
  948.           GP_SendCommand "" 3600
  949.        } else {
  950.             return 0
  951.        }
  952.           
  953.           
  954.     }
  955.  
  956.  
  957.    proc GP_SendPath { dummyVar } {
  958.        global gp_cwd
  959.       # display current path on status bar
  960.          set gp_cwd [ GP_filtercurlyq $dummyVar ]
  961.          message "Current gnuplot Path ==> $gp_cwd"
  962.     }
  963.  
  964.     proc GP_ConsoleH { dummyVar } { 
  965.        GP_Console   
  966.        # this is a dummy routine
  967.     }  
  968.  
  969.     proc GP_NewWindowH { dummyVar } { 
  970.         switchTo 'ALFA'
  971.         GP_NewWindow   
  972.        # this is a dummy routine
  973.     }  
  974.  
  975.     proc GP_ActivateH { dummyVar } { 
  976.        GP_Activate   
  977.        # this is a dummy routine
  978.     }  
  979.  
  980.     proc GP_CloseH { dummyVar } { 
  981.        GP_Quit   
  982.        # this is a dummy routine
  983.     }  
  984.  
  985.  } else { set GPLTmodeVars(EventHandler) 0 }
  986.  
  987.  
  988. #############################################################################
  989. #
  990. #  Find and launch gnuplot
  991. #
  992. #
  993.  
  994. proc GP_Check {} {
  995.     global GnuplotMenu gp_Launched GPLTmodeVars
  996.                    
  997.     # Check if gnuplot app is running.  If not, open the app named in 
  998.     # $ (if defined) or have the user select an app via a
  999.     # standard file dialog.  Leave the gnuplot app in the background.
  1000.    
  1001.       if {![catch {app::launchAnyOfThese {GPSE GPLT} GnuplotSig}]} {
  1002.         set gp_Launched 1
  1003.         enableMenuItem $GnuplotMenu "quit gnuplot" on
  1004.         enableMenuItem $GnuplotMenu "graph" on
  1005.         enableMenuItem $GnuplotMenu "history" on
  1006.         enableMenuItem $GnuplotMenu "saveSettings" on  
  1007.         enableMenuItem gnuplotOptions "setPointSize..." on  
  1008.         enableMenuItem $GnuplotMenu "setWorkingFolder..." on
  1009.         enableMenuItem $GnuplotMenu "choosePlotFile..."     on
  1010.         return 0
  1011.     } else {
  1012.         return -1
  1013.     }
  1014. }
  1015.  
  1016. #############################################################################
  1017. #
  1018. #  Goto command window
  1019. #
  1020. # 
  1021. proc GP_Console {  } {
  1022. global gp_Console win::Modes  GPLTmodeVars 
  1023. global gp_Launched gp_Prompt 
  1024.    
  1025.     # Check if gnuplot app is running.  If not, open the app named in 
  1026.     # $ (if defined) or have the user select an app via a
  1027.     # standard file dialog.  Leave the gnuplot app in the background.
  1028.    
  1029.     set wins [winNames]
  1030.     if { [lsearch $wins $gp_Console ]  >= 0} {
  1031.         bringToFront $gp_Console
  1032.         goto [maxPos]
  1033.     } else   {
  1034.         eventHandler GPIC cbye "GP_CloseH"
  1035.         GP_NewConsole
  1036.     }  
  1037. }
  1038.  
  1039.  
  1040. #############################################################################
  1041. #
  1042. #  Create  command window
  1043. #
  1044. # 
  1045. proc GP_NewConsole { } {
  1046.     global win::Modes gp_Console gp_Graph win::Modes gp_Path
  1047.     global  GPLTmodeVars gp_Launched gp_GEOM GP_GraphMenu
  1048.     global gp_Prompt  gp_cwd GnuplotMenu  gp_home gp_scriptItems
  1049.  
  1050.     if {[llength $gp_GEOM] != "4" } {            
  1051.         GP_Readme
  1052.         new -n $gp_Console -m GPLT
  1053.         set gp_GEOM [ getGeometry $gp_Console ] 
  1054.     }   
  1055.     set wd [lindex $gp_GEOM 2]
  1056.     set ht [lindex $gp_GEOM 3]
  1057.     set top [lindex $gp_GEOM 1]
  1058.     set left [lindex $gp_GEOM 0]
  1059.     set gY [expr $top - 15]
  1060.     set gX [expr $left + $wd + 5]
  1061.     set gW [expr 72 ]
  1062.     set gH [expr 50 ]
  1063.  
  1064.     set wins [winNames]    
  1065.     if {  [lsearch $wins $gp_Console ]  < 0 } { 
  1066.         new -g $left $top $wd $ht -n $gp_Console -m GPLT
  1067.     }
  1068.     catch { setWinInfo -w $gp_Console shell 1 } jjj
  1069.     GP_GraphButton
  1070.     if { $GPLTmodeVars(LiveHist) } GP_DumpHistory
  1071.     insertText -w $gp_Console  "\nWelcome to Alpha's gnuplot 3.6 shell.\n" 
  1072.     GP_Check
  1073.     bringToFront $gp_Console
  1074.     
  1075.      set res [ GP_STDERR ""  3600 ]
  1076.      insertText -w $gp_Console "$res"
  1077.      
  1078.      # The following is a huge kludge...to deal with accidentally
  1079.      # closing the gnuplot window
  1080.      if    { $res == "" }    {
  1081.              GP_Results "gnuplot> "
  1082.      }
  1083.      # end kludge
  1084.           
  1085.      # Now setup the CLIE
  1086.      if {[string first "Using threaded console."  $res ] != {-1} \
  1087.        | [string first "ppc" [string tolower $res ] ] != {-1}  } { 
  1088.            set ress [GP_STDERR "" 3600 ]
  1089.     }
  1090.  
  1091.     set gp_home "$gp_cwd"
  1092.     append gp_home "Scripts:*" 
  1093.  
  1094.  
  1095.      set cdir [pwd]
  1096.      set gp_Path "$gp_home"
  1097.    
  1098.     GP_RebuildScriptMenu
  1099.     cd "$cdir"
  1100.     
  1101.      set gp_home [string range "$gp_home" 0 [expr [string length "$gp_home" ] -2 ] ]
  1102.      message "Current gnuplot Path ==> $gp_cwd"
  1103.      
  1104. }
  1105.  
  1106.  
  1107. ################################################################################
  1108. #
  1109. #  Rebuild the script menu 
  1110. #      
  1111. #
  1112.  
  1113. proc GP_RebuildScriptMenu {  }   {
  1114. global gp_cwd GP_GraphMenu gp_scriptItems gp_openItems gp_Path
  1115.  
  1116.     set gp_scriptItems [list]
  1117.     set gp_openItems [list]
  1118.     set gp_home "$gp_Path"
  1119.  
  1120.     set gp_sl [ GP_ScriptList "$gp_home" "Scripts" ]
  1121.     set gp_sm [concat menu -m -n "Scripts" -p GP_ScriptMenuItems [list "$gp_sl"]  ]
  1122.     
  1123.     # kill the current floating menu (if any)
  1124.     GP_KillGraphButton
  1125.     
  1126.     menu  -n "$GP_GraphMenu" -p GnuplotMenuItem [list \
  1127.       "gnuplot" \
  1128.       "(-" \
  1129.       {menu -m -s -n "Settings" -p GnuplotMenuItem  {\
  1130.           "line styles...&" \
  1131.         "text format...&" \
  1132.           "labels...&" \
  1133.           "offsets...&" \
  1134.       }}\
  1135.        "(-" \
  1136.        "$gp_sm" \
  1137.     ]
  1138.      
  1139.     GP_GraphButton
  1140. }
  1141.    
  1142.     
  1143. ################################################################################
  1144. #
  1145. #  Generate a new script window 
  1146. #      
  1147. #
  1148.  
  1149. proc GP_NewWindow {  } {
  1150.     set wname "Untitled.gp"
  1151.     new -n $wname -m GPLT
  1152.     GP_uFD
  1153.     insertText "#\r"
  1154.     setWinInfo -w $wname dirty 0
  1155.    #
  1156. }
  1157.  
  1158.  
  1159.  
  1160.  
  1161. #############################################################################
  1162. #
  1163. #  Tell gnuplot to quit
  1164. #
  1165.  
  1166. proc GP_Quit {} {
  1167.     global gp_Console  
  1168.  
  1169.     switchTo 'ALFA'
  1170.     set wins [winNames]
  1171.     if { [set winThere [lsearch $wins $gp_Console ] ] >= 0} {
  1172.         set name [lindex $wins $winThere]
  1173.         bringToFront $name
  1174.         killWindow
  1175.     } 
  1176.  
  1177. }
  1178.  
  1179.  
  1180. #############################################################################
  1181. #
  1182. #  Switch to gnuplot
  1183. #
  1184.  
  1185. proc GP_Activate {  } {
  1186.     global   GnuplotSig 
  1187.     
  1188.     if { ![GP_Check] } { 
  1189.         switchTo \'$GnuplotSig\' 
  1190.     }    
  1191. }
  1192.  
  1193.  
  1194. #############################################################################
  1195. #
  1196. #  Carriage return for command window
  1197. #
  1198.  
  1199. proc GP_CarriageReturn {} {
  1200.     global gp_CommandHist gp_CommandNum  gp_Console gp_Hist gp_Graph 
  1201.  
  1202.     #enter only if cr in console window...
  1203.     set wins [winNames]
  1204.     if { [lsearch $wins $gp_Console ]  == 0  } {
  1205.         setWinInfo -w $gp_Console dirty 0            
  1206.         set pos [getPos]
  1207.     
  1208.         # I look for > and : instead of the proper prompts... Hmmm...
  1209.         # if -1 then we are not on an input line...
  1210.         # or we could be waiting for a pause...
  1211.         # which should be on the last line...        
  1212.         set ind [string first ">" [getText [lineStart $pos] $pos] ]
  1213.         if {$ind < 0} {
  1214.             set ind [string first ":" [getText [lineStart $pos] $pos] ]
  1215.             if {$ind < 0} {
  1216.                  endOfBuffer
  1217.                  # just send a cr to the server
  1218.                  insertText "\r"
  1219.                  GP_SendCommand [getText [lineStart $pos] $pos] 400
  1220.                  return 
  1221.             }
  1222.         }
  1223.         set lStart [expr [lineStart $pos]+$ind+2]
  1224.         endOfLine
  1225.         set lEnd  [getPos]  
  1226.         set scriptName [getText $lStart $lEnd]
  1227.         insertText "\r"
  1228.         # if not on last line, then replace text on last line...
  1229.         GP_SendCommand "$scriptName"  102
  1230.     } elseif {[lsearch $wins $gp_Hist ] == 0} {
  1231.         # execute the current command in the history window...
  1232.         GP_HistgotoMatch
  1233.     } else {
  1234.         insertText "\r"
  1235.     }
  1236. }
  1237.  
  1238.  
  1239.  
  1240. #############################################################################
  1241. #
  1242. #  Filter curlyq's out of sting...We may need to be smarter 
  1243. #    about this later
  1244. #
  1245. proc GP_filtercurlyq { it } {
  1246.  
  1247.   set from [string first "“" $it]
  1248.   set to [string first "”" $it]
  1249.   set ans [string range $it [expr $from + 1] [expr $to - 1] ]
  1250.   if { ![expr [string length $ans] -1 ] } { 
  1251.       regexp -nocase {[a-z0-9]} $ans nans
  1252.       if {[info exists nans]} {
  1253.           set ans $nans
  1254.       } else {
  1255.           set ans ""
  1256.       }
  1257.       
  1258.       
  1259.   }
  1260.   
  1261.   return $ans
  1262. }
  1263.  
  1264. #############################################################################
  1265. #
  1266. #  Extract current gnuplot path from event reply
  1267. #
  1268.  
  1269. proc GP_ExtractPath { ans } {
  1270.     global gp_cwd 
  1271.     
  1272.     # We need to be tricky since I'm not sure if Dave is sending the
  1273.     # path in an alis, or as a string
  1274. #    regexp {“(.*)(”.*“)(.*)”} "$ans" dummy spec1 spec2 spec3   
  1275.     
  1276.     set frst [ string first "PSTR:" "$ans" ]
  1277.     set lst [ string first "TERM:" "$ans" ]
  1278.     
  1279.     if { ($frst > 0) } {
  1280.         if { $lst <= 0 } { set lst [string length $ans ] }
  1281.         set ans [string range "$ans" $frst $lst ]
  1282.         regexp {“(.*)”} "$ans" dummy  spec3   spec1 
  1283.         if {[info exists spec3]} {
  1284.            set ngp_cwd $spec3
  1285.            if {$ngp_cwd != "" } {
  1286.                set gp_cwd "$ngp_cwd"
  1287.             return 0
  1288.            }         
  1289.        }
  1290.    }
  1291.       
  1292.    regexp {«(.*)»} "$ans" dummy spec
  1293.    if {[info exists spec]} {
  1294.    set ngp_cwd [specToPathName $spec]
  1295.    if {$ngp_cwd != "" } {
  1296.            set gp_cwd "$ngp_cwd"
  1297.         return 0
  1298.        }         
  1299.    }
  1300. }    
  1301.   
  1302.     
  1303.  
  1304. #############################################################################
  1305. #
  1306. #  Send a command to gnuplot and return stderr!
  1307. #
  1308.  
  1309. proc GP_STDERR { mycommand tmout } {
  1310. global  gp_cwd  GPLTmodeVars GnuplotSig gp_TYPE gp_CREA
  1311.  
  1312.     if { ! $GPLTmodeVars(EventHandler) } {
  1313.         catch { AEBuild -t $tmout -r \'$GnuplotSig\' GPSE  "exec" ---- \
  1314.                [curlyq $mycommand] {CREA:} "$gp_CREA" \
  1315.                {TYPE:} "$gp_TYPE" } ans 
  1316.     } else {
  1317.         catch { AEBuild -t $tmout -r \'$GnuplotSig\' GPSE  "exec" ---- \
  1318.                [curlyq $mycommand] {CLIE:} "ALFA" {CREA:} "$gp_CREA" \
  1319.                {TYPE:} "$gp_TYPE" } ans 
  1320.     } 
  1321.     if { $ans == "Unable to find process"  }  GP_Quit        
  1322.     GP_ExtractPath $ans
  1323.     return [GP_filtercurlyq $ans]
  1324. }
  1325.  
  1326.  
  1327. #############################################################################
  1328. #
  1329. #  Send a command to gnuplot  
  1330. #
  1331.  
  1332. proc GP_SendCommand { mycommand tmout} {
  1333. global GPLTmodeVars GnuplotMenu  gp_CommandHist gp_Rsp  gp_CommandNum  
  1334. global gp_Prompts gp_Launched 
  1335.     
  1336.     watchCursor
  1337. #    GP_Console
  1338.       
  1339.      set tmout 300
  1340.     #display command on the last line of the console if its not already there
  1341.    GP_DispCommand "$mycommand"
  1342.       if { [string trim $mycommand '\r'] != {} } {
  1343.         GP_AddToHist $mycommand
  1344.     }
  1345.  
  1346.    # send gnuplot a command
  1347.    # display the stderr results on the screen
  1348.    # The eventHandler above will display the stdout results first
  1349.    set stderr [GP_STDERR "$mycommand\r"  $tmout ]
  1350.    
  1351.    # Null stderr can mean two things.  
  1352.    #   (1) a pause 
  1353.    #   (2) if no thread manager available, it could mean go back 
  1354.    #       and retrieve the stderr which will help 68k systems 
  1355.    #       work since eventHandler is broken in 6.01
  1356.    
  1357.    # This can probably be cleaned up with a little effort
  1358.    # What I'm doing in the next line is taking care of the 
  1359.    # non-threaded macs...
  1360.    # which always return "".  Its harmless otherwise.
  1361.    #if {$stderr == ""  & $mycommand != "" } { set stderr [GP_STDERR "" $tmout ] }
  1362.     #if { $GPLTmodeVars(EventHandler) == "0" &  $stderr == "" } { set stderr "gnuplot> " }
  1363.    if { $stderr != "" } { 
  1364.           GP_Results     "$stderr" 
  1365.    } else {
  1366.           #GP_Results ""
  1367.    }
  1368.          
  1369.     blink [getPos]
  1370. }
  1371.   
  1372.  
  1373. #############################################################################
  1374. #
  1375. #  Save current window and execute it in GNUPLOT, just like GNUPLOT 
  1376. #  command ;)
  1377. #
  1378.  
  1379. proc GP_SaveAndExecute {} {
  1380.  
  1381.     if {[winDirty]} {save}
  1382.  
  1383. # Get the path of the current window and it's name
  1384.     
  1385.    # Set the working directory to the current window's
  1386.    # current dir.
  1387.     set GPLTFilePath "cd \'\:"
  1388.     set GPLTFile [lindex [winNames -f] 0]
  1389.     set GPLTFP [file dirname $GPLTFile]
  1390.     append  GPLTFilePath  $GPLTFP ":\'"
  1391.  
  1392.     # use unix style file paths 
  1393.     regsub -all ":" $GPLTFilePath {/} GPLTFilePath
  1394.  
  1395.    # get the load command ready...
  1396.     set scriptName  "load \'"
  1397.     append scriptName [file tail $GPLTFile] "\'"
  1398.  
  1399.    # Change current working directory to window's
  1400.    GP_SendCommand $GPLTFilePath 600
  1401.     
  1402.    # Do the script
  1403.    GP_SendCommand $scriptName 700
  1404. }
  1405.   
  1406.  
  1407. #############################################################################
  1408. #
  1409. #  Write results to command window  
  1410.  
  1411. proc GP_Results { res } {
  1412. global gp_Console gp_cwd
  1413.         insertText -w "$gp_Console"  "\n" $res
  1414.         setWinInfo -w "$gp_Console" dirty 0
  1415.     message "Current gnuplot Path ==> $gp_cwd"
  1416. }
  1417.  
  1418.  
  1419. #############################################################################
  1420. #
  1421. #  Display or rewrite "command" to command window  
  1422.  
  1423. proc GP_DispCommand {command} {
  1424.     global   gp_Prompts gp_cwd 
  1425.     
  1426.     # This is ugly and probably not very efficient.
  1427.     
  1428.    set lst [maxPos]
  1429.    set boll [lineStart $lst]
  1430.  set curr [getPos]
  1431.    
  1432.    if { $curr >= $boll } {       
  1433.         set bol [lineStart $curr]
  1434.         set eol [nextLineStart $curr] 
  1435.          set text [getText $bol $eol]
  1436.        set ltext [getText $boll $lst]
  1437.        foreach gp $gp_Prompts {
  1438.            set c1 [string first $gp $ltext]
  1439.            set c2 [expr $lst - $boll]
  1440.            set c3 [string length $gp]
  1441.            set c4 [expr $lst - $curr] 
  1442.            set c5 [string length $command]
  1443.            if { $c1 == 0 & [expr $c2 >= $c3 | $c4 >= $c5 ] } {
  1444.                     if {[string first $command $text] == -1} {
  1445.                         set a [expr $boll + [string length $gp] ]
  1446.                         set b [string trim $command "\r"]
  1447.                         replaceText $lst  $a $b
  1448.                 } 
  1449.            } 
  1450.         }    
  1451.     }
  1452. }
  1453.  
  1454.  
  1455.  
  1456.  
  1457. #############################################################################
  1458. #
  1459. #  Send line to GNUPLOT
  1460. #
  1461.  
  1462. proc GP_DoLine {} {
  1463.     
  1464.     beginningOfLine
  1465.     set bol [getPos]
  1466.     endOfLine
  1467.     set eol [getPos]
  1468.  
  1469.     set scriptName [getText $bol $eol]
  1470.    GP_SendCommand $scriptName     800
  1471. }
  1472.  
  1473.  
  1474. #############################################################################
  1475. #
  1476. #  Send selection to GNUPLOT
  1477. #
  1478.  
  1479. proc GP_DoSelection {} {
  1480.     # Break lines into separate commands.
  1481.     foreach sN [split [getSelect] "\r"] { 
  1482.         GP_SendCommand $sN 900
  1483.     }
  1484.     
  1485. }
  1486.  
  1487.  
  1488.  
  1489.  
  1490. #############################################################################
  1491. #
  1492. #  Command History 
  1493. #
  1494.  
  1495. proc GP_PrevCommand {} {
  1496. global  gp_CommandHist gp_CommandNum gp_Hist gp_Prompt gp_MultiPrompt 
  1497. global  gp_ContPrompt gp_Console gp_Hist
  1498.     
  1499.     #enter only if cr in console window...
  1500.     set wins [winNames]
  1501.     if { [lsearch $wins "$gp_Console" ] == 0} {
  1502.  
  1503.         set text [getText [lineStart [getPos] ] [nextLineStart [getPos] ] ]
  1504.         if {[set ind [string first $gp_Prompt $text] ] == 0} {
  1505.             goto [expr [lineStart [getPos] ] + $ind + [string length $gp_Prompt] ]
  1506.         } elseif {[set ind [string first $gp_MultiPrompt $text] ] == 0} {
  1507.             goto [expr [lineStart [getPos] ] + $ind + 
  1508.               [string length $gp_Multiprompt] ]
  1509.         } elseif {[set ind [string first $gp_ContPrompt $text] ] == 0} {
  1510.             goto [expr [lineStart [getPos] ] + $ind + [string length $gp_Contprompt] ]
  1511.         } elseif { return }
  1512.     
  1513.         incr gp_CommandNum -1
  1514.         if {$gp_CommandNum < 0} {
  1515.             incr gp_CommandNum
  1516.             endOfLine
  1517.             return
  1518.         } 
  1519.         set text [lindex $gp_CommandHist $gp_CommandNum]
  1520.         set to [nextLineStart [getPos] ]
  1521.         if {[lookAt [expr $to-1] ] == "\r"} {incr to -1}
  1522.  
  1523.         replaceText [getPos] $to $text
  1524.     } elseif { [lsearch $wins $gp_Hist ]  == 0} {
  1525.         
  1526.         set limit [nextLineStart [nextLineStart 0] ]
  1527.         if {[getPos] > $limit} {
  1528.             set limit [expr [getPos] - 1]
  1529.         }
  1530.         select [lineStart $limit] [nextLineStart $limit]
  1531.     } else {
  1532.         previousLine
  1533.     }
  1534.     
  1535. }
  1536. # 
  1537.  
  1538. proc GP_NextCommand {} {
  1539.     global  gp_CommandHist gp_CommandNum gp_Prompt gp_MultiPrompt 
  1540.    global gp_ContPrompt gp_Console gp_Hist
  1541.     
  1542.     #enter only if cr in console window...
  1543.     set wins [winNames]
  1544.     if { [lsearch $wins "$gp_Console"  ]  == 0} {
  1545.  
  1546.         set text [getText [lineStart [getPos] ] [nextLineStart [getPos] ]]
  1547.         if {[set ind [string first $gp_Prompt $text] ] == 0} {
  1548.             goto [expr [lineStart [getPos] ] + $ind + 9]
  1549.         } elseif {[set ind [string first $gp_MultiPrompt $text] ] == 0} {
  1550.                 goto [expr [lineStart [getPos] ] + $ind + 11]
  1551.         } elseif {[set ind [string first $gp_ContPrompt $text] ] == 0} {
  1552.                 goto [expr [lineStart [getPos] ] + $ind + 3]
  1553.         } else  { 
  1554.             endOfBuffer
  1555.             return 
  1556.         }
  1557.     
  1558.         incr gp_CommandNum
  1559.         if {$gp_CommandNum > [llength $gp_CommandHist]} {
  1560.             incr gp_CommandNum -1
  1561.             return
  1562.         }
  1563.         set text [lindex $gp_CommandHist $gp_CommandNum]
  1564.         set to [nextLineStart [getPos] ]
  1565.         if {[lookAt [expr $to-1] ] == "\r"} {incr to -1}
  1566.         replaceText [getPos] $to $text
  1567.     } elseif { [lsearch $wins $gp_Hist  ]  == 0} {
  1568.             set pos [getPos]
  1569.             if {$pos < [nextLineStart 0]} {
  1570.                 set pos [nextLineStart 0]
  1571.             }
  1572.             if {[nextLineStart $pos] != [maxPos]} {
  1573.                 select [nextLineStart $pos] [nextLineStart [nextLineStart $pos] ]
  1574.             }
  1575.         } else {
  1576.       # mv cusor down...
  1577.             nextLine
  1578.     }    
  1579. }
  1580.  
  1581.  
  1582.  
  1583. #############################################################################
  1584. #
  1585. #  Edit current window in GNUPLOT
  1586. #
  1587.  
  1588. proc GP_EditFile {} {
  1589. global GnuplotSig 
  1590.  
  1591.     if { ![GP_Check] } {
  1592.         set thisWin  [lindex [winNames] 0]
  1593.         if {[winDirty]} {
  1594.             if {[askyesno "Save '$thisWin'?"] == "yes"} {
  1595.                 save
  1596.             } else { return }     }
  1597.         set thisWin  [lindex [winNames -f ] 0]
  1598.         fileMenuProc File close
  1599.         if {[catch {sendOpenEvent -n \'$GnuplotSig\' $thisWin }] } {
  1600.         } else { switchTo \'$GnuplotSig\'     }
  1601.    }
  1602. }
  1603.  
  1604.  
  1605. #############################################################################
  1606. #
  1607. #  change behavior of modifyModeFlags
  1608. #
  1609.  
  1610.     
  1611. proc GP_modifyModeFlags {{title ""}} {
  1612.     global mode GPLTmodeVars gp_modflag PREFS gp_HistGEOM gp_GEOM
  1613.     global GnuplotMenu  gp_Graph gp_Console  gp_Hist gp_floatmenu
  1614.     
  1615.     set wins [winNames]
  1616.     if { [lsearch $wins "$gp_Console" ]  >= 0}  {
  1617.         set gp_GEOM [ getGeometry "$gp_Console" ]
  1618.     }
  1619.     
  1620.     if { [lsearch $wins $gp_Hist] >= 0 } {
  1621.         set gp_HistGEOM [ getGeometry "$gp_Hist" ]
  1622.     }
  1623.     
  1624.     set gp_modflag 1
  1625.        
  1626.     if { $GPLTmodeVars(LiveHist) } { 
  1627.         set wins [winNames]
  1628.         if { [lsearch $wins "$gp_Console"  ]  >= 0} {
  1629.             GP_DumpHistory
  1630.         } 
  1631.     } else {
  1632.           set wins [winNames]
  1633.         if {[lsearch $wins $gp_Hist  ]  >= 0} {
  1634.             bringToFront $gp_Hist
  1635.             killWindow 
  1636.         } 
  1637.     }
  1638.     if { $GPLTmodeVars(EventHandler) } { 
  1639.     } else {
  1640.         set jj1 "The event handler is broken in Alpha (68k).
  1641.         set jj2 "You may need to disable event handling until it is fixed."
  1642.        alertnote $jj1 $jj2
  1643.     }
  1644.     if { $GPLTmodeVars(GraphButton) } { 
  1645.         GP_GraphButton
  1646.     } else {
  1647.         GP_KillGraphButton
  1648.     }
  1649.     # This file is sourced when appropriate by Alpha, 
  1650.     # it should not happen here.
  1651.     #catch {  source $PREFS:GPLTPrefs.tcl } jjj
  1652.     catch {    bringToFront "$gp_Console" } jjj
  1653. }
  1654.  
  1655. #############################################################################
  1656. #
  1657. #  closeHook procedure so that gnuplot is quit 
  1658. #  whenever the user closes the console window.  Also ask about 
  1659. #  saving the history list when the console is closed.
  1660. #
  1661. #
  1662.     
  1663. proc GP_CloseHook    {name} {
  1664.     global GnuplotMenu GPLTmodeVars PREFS modifiedArrayElements
  1665.     global gp_CreatorList gp_TypeList gp_Console gp_Graph gp_Hist 
  1666.     global gp_CreatorNames gp_CommandNum gp_Launched GnuplotSig modifiedVars
  1667.     global gp_GEOM gp_HistGEOM modifiedVars
  1668.     
  1669.     if { [string first "$gp_Console" $name] == 0    } {
  1670.  
  1671.                if    {$gp_CommandNum != 0 && ! $GPLTmodeVars(NevrSavHist) } {
  1672.             GP_DumpHistory
  1673.             set ans [askyesno -c "Save    gnuplot command History?" ]
  1674.         } else {    set ans "yes" }
  1675.         
  1676.         GP_OffSet
  1677.         switch -exact [string tolower $ans] {
  1678.             "cancel"   { GP_Console; return $result }
  1679.             "no"       { GP_ClearHistory }
  1680.             "yes"       {     
  1681.                 catch { setWinInfo -w $gp_Hist read-only 0 } jj                                        
  1682.                 catch { setWinInfo -w $gp_Hist dirty 1 } jj
  1683.                 catch { bringToFront $gp_Hist } jj
  1684.                 if { $jj == 0 } { 
  1685.                     catch { saveAs "history.gp" } jj
  1686.                 }
  1687.                 catch { setWinInfo -w $gp_Hist dirty 0 } jj                                        
  1688.                 catch { setWinInfo -w $gp_Hist read-only 1 } jj
  1689.                 GP_ClearHistory
  1690.             }
  1691.         } 
  1692.             #end case
  1693. #        if {$gp_Launched    !=    0 } { 
  1694.                 catch { sendQuitEvent \'$GnuplotSig\' } hhh  
  1695.                 lappend modifiedVars  GnuplotSig 
  1696. #            } 
  1697.                set gp_Launched 0
  1698.              set wins [winNames]
  1699.         if { [lsearch $wins $gp_Hist  ]  >= 0} {
  1700.             bringToFront $gp_Hist
  1701.             killWindow 
  1702.         } 
  1703.         lappend modifiedVars   gp_GEOM 
  1704.         lappend modifiedVars   gp_HistGEOM 
  1705.  
  1706.     } elseif {[string first $gp_Hist    $name] == 0} {
  1707.         set wins [winNames]
  1708.         if { [lsearch $wins "$gp_Console" ]  >= 0} {
  1709.             set GPLTmodeVars(LiveHist) 0
  1710.         } 
  1711.     }
  1712. } 
  1713.     
  1714.  
  1715. #############################################################################
  1716. #
  1717. #  Redefine the deactivateHook procedure so that gnuplot is quit 
  1718. #  whenever the user closes the console window.  Also ask about 
  1719. #  saving the history list when the console is closed.
  1720. #
  1721. #
  1722.     
  1723. proc GP_DeactivateHook    {name} {
  1724.     global  gp_Hist GPLTmodeVars gp_Console gp_Graph
  1725.     global  gp_GEOM gp_HistGEOM
  1726.     if    { [string first $gp_Hist $name] == 0    } {
  1727.         set gp_HistGEOM [ getGeometry "$gp_Hist" ]
  1728.           endOfBuffer
  1729.     } elseif {[string first "$gp_Console" $name] == 0} {
  1730.         set gp_GEOM [getGeometry "$gp_Console" ]
  1731.     } 
  1732. } 
  1733.  
  1734. #############################################################################
  1735. #
  1736. #  Redefine the activateHook procedure so that gnuplot is quit 
  1737. #  whenever the user closes the console window.  Also ask about 
  1738. #  saving the history list when the console is closed.
  1739. #
  1740. #
  1741. proc GP_ActivateHook    {name} {
  1742.     global  gp_Hist gp_Graph gp_Console modifiedArrayElements
  1743.     global  mode gp_cwd GPLTmodeVars mode gp_modflag gp_GEOM
  1744.         
  1745.     if    { [string first "$gp_Console" $name] == 0} {
  1746.         changeMode [set win::Modes([lindex [winNames] 0]) GPLT]
  1747.         set gp_GEOM [ getGeometry "$gp_Console" ]
  1748.     } elseif    { [string first $gp_Hist $name] == 0} {
  1749.         set gp_HistGEOM [ getGeometry "$gp_Hist" ]
  1750.     }
  1751.     
  1752.     message "Current gnuplot Path ==> $gp_cwd"
  1753. } 
  1754.  
  1755.  
  1756.  
  1757.  
  1758. ###########################################################################
  1759. #
  1760. # In GNUc mode, cmd-double-click highlights area btween consecutive 
  1761. # gnuplot prompts
  1762. #
  1763.  
  1764. proc GPLT::DblClick {from to} {
  1765.    
  1766.     global gp_Prompts
  1767.     
  1768.     # First find "gnuplot> " prompt above and below cursor entry...
  1769.     # don't forget to deal with "multiplot> " and "> "
  1770.  
  1771.     set gp1 [list]
  1772.     foreach gp $gp_Prompts {lappend gp1 [search -n -f 0 -r 1   $gp $from] }
  1773.     set firstmatch [lindex [lindex $gp1 0 ] 0]
  1774.     foreach el $gp1 { if {[lindex $el 1] > $firstmatch } { 
  1775.          set firstmatch [lindex $el 0] } }    
  1776.  
  1777.     if {$firstmatch == {}} {
  1778.         message "You are not between prompts" 
  1779.         return 
  1780.     } else {
  1781.         
  1782.         set firstmatch [nextLineStart $firstmatch]
  1783.         endOfBuffer
  1784.         set lastmatch [getPos ]
  1785.         set gp1 [list]
  1786.         foreach gp $gp_Prompts {lappend gp1 [search -n -f 1 -r 1   $gp $from] }
  1787.         foreach el $gp1 {if {[lindex $el 1]!={} & [lindex $el 0]< $lastmatch } { 
  1788.                set lastmatch $el } 
  1789.        }
  1790.          if {$lastmatch == {}} {
  1791.             message "You are not between prompts" 
  1792.             return 
  1793.         } else { 
  1794.         
  1795.         goto $lastmatch
  1796.         beginningOfLine
  1797.         select $firstmatch [getPos] }
  1798.     }
  1799. }
  1800.  
  1801.  
  1802.  
  1803. #############################################################################
  1804. #
  1805. #  Select creator from list
  1806. #
  1807.  
  1808. proc GP_SelectCreator {} {
  1809. global gp_CreatorNames  gp_CreatorList   gp_TypeList GPLTmodeVars  
  1810. global setOutputCreator modifiedArrayElements modifiedVars
  1811. global gp_CREA gp_TYPE
  1812.  
  1813.     set crea [listpick -p "Select output file creator:" $gp_CreatorNames  ]
  1814.    set creator [lindex $gp_CreatorList [lsearch  $gp_CreatorNames $crea] ]
  1815.    set type [lindex $gp_TypeList [lsearch  $gp_CreatorNames $crea] ]
  1816.    if {$creator == {} } {
  1817.          set gp_CREA 'ALFA'
  1818.          set gp_TYPE 'TEXT' 
  1819.    } else { 
  1820.        set gp_CREA $creator
  1821.        set gp_TYPE $type
  1822.    }
  1823.     lappend modifiedVars  gp_TYPE
  1824.     lappend modifiedVars  gp_CREA
  1825.     lappend modifiedVars  gp_CreatorList 
  1826.     lappend modifiedVars  gp_TypeList
  1827.     lappend modifiedVars  gp_CreatorNames 
  1828. }
  1829.  
  1830.  
  1831. #############################################################################
  1832. #
  1833. #  Add creator to list from file dialog
  1834. #
  1835.  
  1836. proc GP_AddCreator {} {
  1837. global gp_CreatorNames  gp_CreatorList  GnuplotMenu gp_TypeList 
  1838. global GPLTmodeVars modifiedVars modifiedArrayElements
  1839. global gp_CREA gp_TYPE
  1840.    
  1841.    set fname [getfile "Select file type for creator"] 
  1842. #  add to creator list
  1843.    if {[getFileType $fname]=="APPL"} {
  1844.        alertnote "Sorry, but that was an application. \rTry again."
  1845.        return
  1846.    }
  1847.    
  1848.    if {$fname != {}} {
  1849.        set nm [getline "What do you wish to call it?" [file tail $fname ] ]
  1850.         if {$nm != {} } {   
  1851.                 set gp_CREA  [getFileSig $fname]
  1852.                 set gp_TYPE  [getFileType $fname]
  1853.                 lappend gp_CreatorList  $gp_CREA
  1854.                 lappend gp_TypeList     $gp_TYPE
  1855.                 lappend gp_CreatorNames $nm
  1856.                 enableMenuItem  setOutputCreator "Select..." on
  1857.                 enableMenuItem  setOutputCreator "Delete..." on
  1858.                 lappend modifiedVars  gp_TYPE
  1859.                 lappend modifiedVars  gp_CREA
  1860.                 lappend modifiedVars  gp_CreatorList 
  1861.                 lappend modifiedVars  gp_TypeList 
  1862.                 lappend modifiedVars  gp_CreatorNames 
  1863.             }
  1864.    }
  1865.      
  1866.  
  1867. }
  1868.  
  1869. #############################################################################
  1870. #
  1871. #  Remove creator from list
  1872. #
  1873.  
  1874. proc GP_DeleteCreator {} {
  1875. global gp_CreatorNames GnuplotMenu gp_CreatorList  gp_TypeList 
  1876. global GPLTmodeVars modifiedVars modifiedArrayElements
  1877. global gp_CREA gp_TYPE
  1878.  
  1879.     set crea [listpick -p "Select creator to be deleted:"  $gp_CreatorNames ]
  1880.  
  1881.       if {$crea != {}} {
  1882.     #  now remove this creator from both lists....
  1883.         set creatorInd [lsearch  $gp_CreatorNames $crea]
  1884.         set crea [ lindex $gp_CreatorList $creatorInd]
  1885.         set gp_CreatorNames [ lreplace $gp_CreatorNames $creatorInd $creatorInd ]
  1886.         set gp_CreatorList  [ lreplace $gp_CreatorList  $creatorInd $creatorInd ]
  1887.         set gp_TypeList     [ lreplace $gp_TypeList     $creatorInd $creatorInd ]
  1888.     
  1889.         if {$gp_CREA == $crea } {
  1890.             set gp_CREA 'ALFA'
  1891.             set gp_TYPE 'TEXT'
  1892.         } 
  1893.         lappend modifiedVars  gp_TYPE
  1894.         lappend modifiedVars  gp_CREA
  1895.         lappend modifiedVars  gp_CreatorList 
  1896.         lappend modifiedVars  gp_TypeList 
  1897.         lappend modifiedVars  gp_CreatorNames 
  1898.     }
  1899.     
  1900.     if {[llength $gp_CreatorList] == 0} {
  1901.         enableMenuItem  setOutputCreator "Select..." off
  1902.         enableMenuItem setOutputCreator "Delete..." off
  1903.     }
  1904. }
  1905.  
  1906.  
  1907. #############################################################################
  1908. #
  1909. #  Add command to history list
  1910. #
  1911.  
  1912. proc GP_AddToHist  { cmmd } {
  1913. global gp_CommandHist gp_CommandNum GnuplotMenu 
  1914. global GP_Console gp_Hist GPLTmodeVars
  1915.     
  1916.     enableMenuItem gnuplotOptions "clearHistory" on
  1917.     lappend gp_CommandHist $cmmd
  1918.     set gp_CommandNum [llength $gp_CommandHist]
  1919.     
  1920.     if { $GPLTmodeVars(LiveHist) } {
  1921.         # if history list active then append $cmmd on last line
  1922.         set wins [winNames]
  1923.         if { [lsearch $wins $gp_Hist ]  >= 0} {
  1924.              setWinInfo -w $gp_Hist dirty 1
  1925.              setWinInfo -w $gp_Hist  read-only 0
  1926.             insertText -w $gp_Hist "$cmmd\r"
  1927.              setWinInfo -w $gp_Hist  dirty 0
  1928.              setWinInfo    -w $gp_Hist  read-only 1
  1929.         } else {
  1930.             GP_DumpHistory
  1931.             bringToFront "$gp_Console"
  1932.         }
  1933.         
  1934.     }
  1935. }
  1936.  
  1937.  
  1938. #############################################################################
  1939. #
  1940. #  Clear History list 
  1941. #
  1942.  
  1943. proc GP_ClearHistory {} {
  1944.     global  GnuplotMenu gp_CommandHist gp_CommandNum  gp_Hist
  1945.  
  1946.     set gp_CommandHist [list]
  1947.     set gp_CommandNum "0"
  1948.     enableMenuItem gnuplotOptions "clearHistory" off    
  1949.     set wins [winNames]
  1950.     if { [lsearch $wins $gp_Hist ] >= 0} {
  1951.         bringToFront $gp_Hist
  1952.         killWindow 
  1953.     }
  1954. }
  1955.  
  1956.  
  1957. #############################################################################
  1958. #
  1959. #  Write History list into a window of its own.
  1960. #
  1961.  
  1962. proc GP_DumpHistory {} {
  1963.     global gp_CommandHist gp_CommandNum gp_Console 
  1964.     global win::Modes GPLTmodeVars gp_Console gp_Hist  
  1965.     global gp_GEOM
  1966.    
  1967.     set wins [winNames]
  1968.     set nw [ llength $wins ]
  1969.  
  1970.     if { [lsearch $wins $gp_Hist ]  == -1} {
  1971.         
  1972.         set l [ expr [lindex $gp_GEOM 0] + 12 + [lindex $gp_GEOM 2] ]
  1973.         set t [ expr [lindex $gp_GEOM 1] + 65 ]
  1974.         set w 96
  1975.         set h [ expr [lindex $gp_GEOM 3] - 65 ]
  1976.         new -n $gp_Hist -g $l $t $w $h -m GPLT
  1977.         set gp_HistGEOM [getGeometry]        
  1978.         GP_uFD
  1979.         set scriptName "# (<cr> to send to gnuplot)\r#-----\r"
  1980.         foreach word $gp_CommandHist  {append  scriptName  $word "\r" }
  1981.         insertText  -w $fileName $scriptName
  1982.          setWinInfo dirty 0
  1983.          setWinInfo read-only 1
  1984.     } else {
  1985.         bringToFront $gp_Hist
  1986.     }
  1987. }
  1988.  
  1989.     
  1990.  
  1991. ################################################################################
  1992. #
  1993. #  Insert File Description---use Vince's if possible.  
  1994. #      this used in creating new window and in dumping history list
  1995. #
  1996.  
  1997. proc GP_uFD { } {
  1998.     #catch {userFileDescription } ans 
  1999.     #if {     $ans != ""    }  {
  2000.          insertText "#\r#\r#     " [join [mtime [now] long] ] "\r"
  2001.          nextLine
  2002.     #}
  2003.    endOfBuffer
  2004. }
  2005.  
  2006.  
  2007. ################################################################################
  2008. #
  2009. #  Clear a few globals...
  2010. #
  2011. #
  2012. #
  2013. proc GP_Clear {} {
  2014.     global PREFS  GPLTmodeVars
  2015.     global  gp_CreatorList gp_CreatorNames  
  2016.     global gp_GEOM gp_HistGEOM modifiedVars
  2017.     global gp_CREA gp_TYPE
  2018.  
  2019.     if { [info exists gp_GEOM] } { set gp_GEOM [list] }      
  2020.     if { [info exists gp_CreatorList] } { unset gp_CreatorList }      
  2021.     if { [info exists gp_TypeList] } { unset gp_TypeList }      
  2022.     if { [info exists gp_CreatorNames] } { unset gp_CreatorNames }      
  2023.     if { [info exists gp_HistGEOM] } { unset gp_HistGEOM  }      
  2024.     if { [info exists gp_CREA] } { unset gp_CREA  }      
  2025.     if { [info exists gp_TYPE] } { unset gp_TYPE  }      
  2026.     
  2027.     ensureset gp_CreatorList [list ALFA GPLT ] 
  2028.     ensureset gp_TypeList [list TEXT TEXT ] 
  2029.     ensureset gp_CreatorNames [list alpha gnuplot] 
  2030.     ensureset gp_CREA ALFA
  2031.     ensureset gp_TYPE TEXT
  2032.     ensureset gp_GEOM [list]
  2033.     ensureset gp_HistGEOM [list ]
  2034.     
  2035.     if { [llength $gp_CreatorList] == 0 \
  2036.       || [llength $gp_CreatorList] != [llength $gp_CreatorNames] \
  2037.       || [llength $gp_CreatorList] != [llength $gp_TypeList]} {
  2038.             set gp_CreatorList [list]
  2039.             set gp_TypeList [list]
  2040.             set gp_CreatorNames [list]
  2041.     }
  2042.  
  2043.     lappend modifiedVars gp_CreatorNames gp_TypeList gp_CreatorList 
  2044.     lappend modifiedVars gp_HistGEOM gp_GEOM
  2045.     lappend modifiedVars gp_TYPE gp_CREA
  2046.     #catch { source $PREFS:gnuplotMode.tcl } blah
  2047.     #catch { source $HOME:Tcl:Modes:gnuplotMode.tcl } blah
  2048. }
  2049.  
  2050.  
  2051. ################################################################################
  2052. #
  2053. #  History goto match...
  2054. #
  2055. #
  2056. #
  2057.  
  2058. proc GP_HistgotoMatch {} {
  2059.    set frst [lineStart [getPos] ]
  2060.    endOfLine
  2061.    set lst  [getPos]
  2062.     endOfBuffer
  2063.     beginningOfLine
  2064.    GP_SendCommand [getText $frst $lst ] 1000
  2065. }
  2066.  
  2067.  
  2068.  
  2069.  
  2070.  
  2071. ################################################################################
  2072. #
  2073. #  Create floating menu
  2074. #
  2075. #
  2076. #
  2077.  
  2078. set GP_GraphMenu "gnuplotGraph"
  2079.  
  2080. set gp_grmen [list "menu  -n $GP_GraphMenu -p GnuplotMenuItem" ]
  2081. lappend gp_grmen "gnuplot" "(-" 
  2082.  
  2083. menu  -n $GP_GraphMenu -p GnuplotMenuItem   [ concat \
  2084.       "gnuplot" \
  2085.       ]
  2086.       
  2087.      
  2088.  
  2089.  
  2090.  
  2091.  
  2092.  
  2093. ################################################################################
  2094. #
  2095. #  run load scripts from scripts menu
  2096. #
  2097. #
  2098. #
  2099.  
  2100. proc GP_ScriptMenuItems {menu item} {
  2101. global gp_sl gp_home gp_scriptItems gp_Path  gp_openItems
  2102.  
  2103.    set men [string tolower $menu]
  2104.    set ite [string tolower $item]
  2105.    
  2106.    if { "$item" == "Rebuild Menu" } {
  2107.         set cdir [pwd]
  2108.         set sl [expr [string length $gp_Path ] - 2] 
  2109.         cd [string range $gp_Path 0 $sl ]
  2110.      GP_RebuildScriptMenu
  2111.      cd "$cdir"
  2112.      return 0
  2113.    }
  2114.    
  2115.    foreach it $gp_scriptItems {
  2116.         if { [string match "cd \'*$men:\'; load \'*$men:$ite\'" [string tolower $it] ] } {
  2117.           GP_SendCommand "$it" 110
  2118.           return 0
  2119.      }      
  2120.     }
  2121.  
  2122.    #set men [string tolower [string range $menu 5 [string length $menu] ] ]
  2123.    
  2124.    # filter out the "• edit "  from the selected $menu $item
  2125.    set ite [string tolower [string range $item 7 [string length $item] ] ]
  2126.  
  2127.    foreach it $gp_openItems {
  2128.         if { [string match "*$men:$ite" [string tolower $it] ] } {
  2129.           edit "$it" 
  2130.           changeMode GPLT 
  2131.           return 0
  2132.      }      
  2133.     }
  2134. }
  2135.  
  2136.  
  2137.  
  2138. ################################################################################
  2139. #
  2140. #  Create a floating gnuplot graph button (Alpha 6.2 or higher)
  2141. #
  2142. #
  2143. #
  2144. proc GP_GraphButton {} {    
  2145. global gp_floatmenu GP_GraphMenu GPLTmodeVars gp_sl gp_Path gp_GEOM gp_FLTGEOM
  2146.  
  2147.   
  2148. #    if {[llength $gp_FLTGEOM] != 2 } {    
  2149.         if {[llength $gp_GEOM] == 4 } {
  2150.               set l [ expr [lindex $gp_GEOM 0] + 5 + [lindex $gp_GEOM 2] ]
  2151.               set t [ expr [lindex $gp_GEOM 1] - 20 ]
  2152.                set gp_FLTGEOM [list $l $t ] 
  2153.          } else {
  2154.              set l 20
  2155.              set t 20
  2156.          }
  2157. #    }  else {
  2158. #          set l  [lindex $gp_FLTGEOM 0]  
  2159. #          set t  [lindex $gp_FLTGEOM 1]  
  2160. #    }
  2161.     
  2162.      if {$GPLTmodeVars(GraphButton) } { 
  2163.         if { (![info exists  gp_floatmenu] )} {
  2164.              set gp_floatmenu [float -m $GP_GraphMenu -n "" -M -1 -z GPLT -l $l -t $t ]
  2165.         } 
  2166.      
  2167.     } 
  2168.     
  2169. }
  2170.  
  2171.  
  2172.  
  2173. ################################################################################
  2174. #
  2175. #  Generate the script menu 
  2176. #      
  2177. #
  2178.  
  2179. proc GP_ScriptList { sdir men } {
  2180. global gp_scriptItems  gp_openItems
  2181.    
  2182.     if {"$men" == "Scripts" } {
  2183.         set sl [list "\(Rebuild Menu"]
  2184.     } else {
  2185.         set sl [list]
  2186.     }
  2187.     
  2188.     # get the list of text files in $sdir
  2189.     set gp_fl [ glob -nocomplain -t TEXT "$sdir"] 
  2190.     set mdir [string range "$sdir" 0 [expr [string length "$sdir"] - 2 ] ] 
  2191.     set rdir [string range "$mdir" 0 [expr [string length "$mdir"] -1 ] ]
  2192.     foreach f $gp_fl {
  2193.       set mitem [string range $f [expr 1 + [string last ":" "$f" ] ] [ string length "$f" ] ]
  2194.       #append mitem "&"
  2195.       if { $mitem != "" } { 
  2196.           lappend sl "<E<S$mitem" 
  2197.           lappend sl "<S<I• edit $mitem" 
  2198.           lappend sl "<S<B• edit $mitem" 
  2199.           lappend sl "<S<U• edit $mitem" 
  2200.           lappend sl "<S<O• edit $mitem" 
  2201.         lappend gp_scriptItems "cd \'$rdir\'; load \'$f\'"
  2202.         lappend gp_openItems "$f"
  2203.       }
  2204.     }
  2205.     
  2206.     # get the list of aliased directories in $sdir and
  2207.     # perform this operation again on subdirectories
  2208.     set dlist [ glob   -t fdrp -nocomplain "$sdir"]
  2209.     foreach d $dlist {
  2210.        set dn [string range $d [expr [string last ":" "$d" ] +1 ] [string length $d]   ]
  2211.        #set dn [string range $dn [expr 1 + [string last ":" "$dn" ] ] [ string length "$dn" ] ]
  2212.        set sl [concat "$sl"  [concat " \{menu -m -n" "\"$dn\"" -p GP_ScriptMenuItems  " \{  "  ] ]
  2213.        set dnam $d
  2214.        append dnam "*" 
  2215.        #set gp_ssl [ GP_ScriptList "$dnam" $dn ]
  2216.        set gp_ssl [list "(ALIASED FOLDERS NOT WORKING YET"]
  2217.        set sl [ concat "$sl "  $gp_ssl " \}  \} " ]
  2218.     }
  2219.     
  2220.     # get the list of directories in $sdir and
  2221.     # perform this operation again on subdirectories
  2222.     set dlist [ glob -nocomplain  "$sdir:"]
  2223.     foreach d $dlist {
  2224.        set dn [string range $d 0 [expr [string last ":" "$d" ] - 1 ]  ]
  2225.        set dn [string range $dn [expr 1 + [string last ":" "$dn" ] ] [ string length "$dn" ] ]
  2226.        set sl [concat "$sl"  [concat " \{menu -m -n" "\"$dn\"" -p GP_ScriptMenuItems  " \{  "  ] ]
  2227.        set dnam $d
  2228.        append dnam "*" 
  2229.        set gp_ssl [ GP_ScriptList "$dnam" $dn ]
  2230.        set sl [ concat "$sl "  $gp_ssl " \}  \} " ]
  2231.     }
  2232.     
  2233.     return  $sl 
  2234. }
  2235.    
  2236.  
  2237. ################################################################################
  2238. #
  2239. #  Kill a floating gnuplot menu (Alpha 6.2 or higher)
  2240. #
  2241. #
  2242. #
  2243. proc GP_KillGraphButton {} {    
  2244. global gp_floatmenu GnuplotMenu GPLTmodeVars 
  2245.  
  2246. if { [info exists  gp_floatmenu] }  { #
  2247.      catch {unfloat $gp_floatmenu } ans
  2248.      unset gp_floatmenu
  2249.     }
  2250. }
  2251.  
  2252.  
  2253.  
  2254.  
  2255.  
  2256. ################################################################################
  2257. #
  2258. #  Load a script into gnuplot 
  2259. #      
  2260. #
  2261.  
  2262. proc GP_LoadScript {} {
  2263.     global gp_cwd
  2264.     catch { cd "$gp_cwd" } hmm
  2265.     set GPLTFile [ getfile "Choose a script to load:" ]
  2266.    if { $GPLTFile != "" } {    
  2267.        GP_SendCommand  "load \'$GPLTFile\'" 120
  2268.     }
  2269. }
  2270.  
  2271.  
  2272.  
  2273. ################################################################################
  2274. #
  2275. #  Tell gnuplot to save settings...
  2276. #
  2277. #
  2278. #
  2279.  
  2280. proc GP_SaveSettings { what } {
  2281. global  GPLTmodeVars gp_cwd gp_TYPE gp_CREA
  2282.  
  2283.    catch { cd "$gp_cwd" } hmm
  2284.    set tCREA $gp_CREA
  2285.    set tTYPE $gp_TYPE
  2286.    set gp_CREA {ALFA}
  2287.    set gp_TYPE {TEXT}
  2288.     set where [ putfile "Save current gnuplot settings" \
  2289.       [format "gnuplot%src.gp" [string toupper $what ] ] ]
  2290.     if { $where != "" } { 
  2291.       GP_SendCommand "save $what \'$where\'" 130
  2292.     }
  2293.     set gp_CREA  $tCREA
  2294.     set gp_TYPE  $tTYPE
  2295. }
  2296.  
  2297.  
  2298.  
  2299. ################################################################################
  2300. #
  2301. #  Tell gnuplot where the current dir is...
  2302. #
  2303. #
  2304. #
  2305.  
  2306. proc GP_SetCWD {} {
  2307.     set gp_cwd [ get_directory -p "Select gnuplot working folder"]
  2308.     if { $gp_cwd != "" } {
  2309.         GP_SendCommand "cd \'$gp_cwd\'" 140
  2310.     }
  2311. }
  2312.  
  2313.  
  2314.  
  2315. ################################################################################
  2316. #
  2317. #  Tell gnuplot to change the point size
  2318. #
  2319. #
  2320. #
  2321.  
  2322. proc GP_SetPTSZ {} {
  2323.     GP_SendCommand " set pointsize [ getline "Enter point size" 1 ] " 150
  2324. }
  2325.  
  2326. ################################################################################
  2327. #
  2328. #  Choose a file to plot and write "plot 'filename'" on command line
  2329. #
  2330. #
  2331. #
  2332.  
  2333. proc GP_ChoosePlotFile { } {
  2334.     global gp_Console gp_cwd
  2335.     catch { cd "$gp_cwd" } hmm
  2336.     set plotfile [ getPathName "Choose a file to plot" 1 ] 
  2337.    if { $plotfile != "" } {
  2338.         insertText -w "$gp_Console" "plot \'$plotfile\' "
  2339.     }
  2340. }
  2341.  
  2342.  
  2343. ################################################################################
  2344. #
  2345. #  Setup menu flags, etc ... assuming gnuplot is off
  2346. #
  2347. #
  2348. #
  2349. proc GP_OffSet {} {
  2350. global GnuplotMenu gp_CreatorList
  2351.     
  2352.     enableMenuItem gnuplotOptions "clearHistory" off                 
  2353.     enableMenuItem $GnuplotMenu "quit gnuplot" off                 
  2354.     enableMenuItem $GnuplotMenu "graph" off                 
  2355.     enableMenuItem $GnuplotMenu "history" off                 
  2356.     enableMenuItem $GnuplotMenu "saveSettings" off  
  2357.     enableMenuItem gnuplotOptions "setPointSize..." off  
  2358.     enableMenuItem $GnuplotMenu "setWorkingFolder..." off
  2359.     enableMenuItem $GnuplotMenu "choosePlotFile..."     off
  2360.     
  2361.     if {[llength $gp_CreatorList] == 0} {
  2362.         enableMenuItem  setOutputCreator "Select..." off
  2363.         enableMenuItem  setOutputCreator "Delete..." off
  2364.     }
  2365.     
  2366. }
  2367.  
  2368. ################################################################################
  2369. #
  2370. #  TEMPORARY JUNK
  2371. #
  2372. #
  2373. #
  2374. set gp_cwd "???"
  2375.  
  2376. proc aevt { hmm } { #dummy procedure too fool 68k into semi-working w/eventHandler....
  2377.    if { $hmm == "'GP_A'()" } {
  2378.         GP_Activate
  2379.    } elseif {$hmm=="'GP_C'()" } {
  2380.        GP_Results "gnuplot> "
  2381.       
  2382.    }    
  2383. }
  2384.      
  2385.  
  2386. ################################################################################
  2387. #
  2388. #  Things to do in order to properly setup gnuplot mode menu
  2389. #
  2390. #
  2391. #
  2392. set gp_modflag 0
  2393. GP_OffSet
  2394.  
  2395.  
  2396. ################################################################################
  2397. #
  2398. #  A simple user message
  2399. #
  2400. #
  2401. #
  2402. proc GP_Readme {} {    
  2403.   set wname "message"
  2404.   new -n $wname -m GPLT
  2405.   GP_uFD
  2406.  
  2407.   insertText { 
  2408. #
  2409.    gnuplotMode.tcl Version 1.82
  2410.  
  2411. #   NEWSTUFF:
  2412. #   ---------
  2413.  
  2414.    This version has a simple floating menu with a button that lists
  2415.    all texts files in the scripts directory of gnuplot home dir.
  2416.    To run a script, just select it from the scripts menu.  To edit
  2417.    a script in Alpha, select a script menu item while holding down a 
  2418.    modifier key (shift, option, command, OR ctrl).
  2419.  
  2420.  
  2421.    Modify some of the GPLT mode behaviour by choosing the menu item:
  2422.  
  2423. #     Config:Current Mode:Flags...
  2424.  
  2425.  
  2426.    To edit keyword coloring choose the configure menu item:
  2427.  
  2428. #     Config:Current Mode:Edit Prefs
  2429.  
  2430.  
  2431.  
  2432. #   GNUPLOT works best with Alpha 6.2 or later
  2433. #   ------------------------------------------
  2434.  
  2435. #   FOR 68K USERS ONLY
  2436. #   ------------------
  2437.  
  2438.    Recent versions of Alpha (<6.2) do not have a fully working      
  2439.    eventHandler procedure.  Thus, you might notice strange behavior  
  2440.    in the gnuplot console.  The symptoms of the problem are that     
  2441.    a new gnuplot prompt may not be displayed on the screen after     
  2442.    pressing a carriage return;  or, longer messages may be garbled. 
  2443.   
  2444.    Try the following: 
  2445.  
  2446. #      set term post
  2447. #      plot sin(x)
  2448.  
  2449.    If you see pages of postscript output, then the eventHandler is 
  2450.    apparently working.
  2451.  
  2452.    If not, then to make effective use of the console you may need   
  2453.    to open the Config:Current Mode:flags... menu in Alpha (when in  
  2454.    
  2455.    Keep an eye out at ftp://www.cs.umd.edu/pub/faculty/keleher/Alpha
  2456.    for the latest versions of Alpha which will eventually solve      
  2457.    this problem.
  2458.  
  2459. #   jeff@wave.nrl.navy.mil 
  2460. }    
  2461.    
  2462.   setWinInfo -w $wname dirty 0
  2463.      
  2464. }
  2465.  
  2466.  
  2467. #############################################################################
  2468. #
  2469. #  change behavior of editCurrentModePrefs
  2470. #
  2471.  
  2472. proc GP_editCurrentModePrefs { } {
  2473.        global mode GPLTmodeVars gp_modflag PREFS gp_HistGEOM gp_GEOM
  2474.        global GnuplotMenu  gp_Graph gp_Console  gp_Hist 
  2475.        global PREFS HOME 
  2476.  
  2477.        set wins  [winNames]
  2478.        set jjwinThere [lsearch $wins "GPLTPrefs.tcl"]
  2479.        set searchString1 {[\n\r]###BGK[\n\r](.*)[\n\r]###EGK[\n\r]}
  2480.       
  2481.        if { $jjwinThere >= 0} {
  2482.            set ss [searchInFile "$PREFS:GPLTPrefs.tcl"  "$searchString1" ]
  2483.            if { $ss == "" } {
  2484.                    goto [maxPos]
  2485.                if {$ss == ""} {
  2486.                    set ss [searchInFile "$HOME:tcl:usercode:gnuplotMode.tcl" \
  2487.                      "$searchString1" ]
  2488.                 }
  2489.                if {$ss == ""} {
  2490.                    set ss [searchInFile "$HOME:tcl:systemcode:gnuplotMode.tcl" \
  2491.                      "$searchString1" ]
  2492.                 }
  2493.                if {$ss == ""} {                                                   
  2494.                    set ss [searchInFile "$PREFS:gnuplotMode.tcl" "$searchString1" ]
  2495.                 } 
  2496.                if {$ss == ""} {                                                   
  2497.                    set ss [searchInFile "$HOME:tcl:Modes:gnuplotMode.tcl" \
  2498.                      "$searchString1" ]
  2499.                 } 
  2500.                if {$ss == ""} {                                                   
  2501.                    alertnote "Sorry, you'll have to edit gnuplotMode.tcl on your own."
  2502.                 } else {
  2503.                   insertText  -w "GPLTPrefs.tcl" "\n\n$ss\n\n"
  2504.                   goto 1
  2505.                }
  2506.            }
  2507.       }
  2508. }
  2509.  
  2510.  
  2511. set gp_fm_first 1
  2512.  
  2513.  
  2514.  
  2515. #############################################################################
  2516. #
  2517. #  Called from menu to handle dialogs in the server app
  2518. #  
  2519. #
  2520. proc GP_Dialog { ans } {
  2521. global  GnuplotSig
  2522.     switchTo  \'$GnuplotSig\'
  2523.     AEBuild -t 3600 -r 'GPSE' GPLT "DIAG" ---- $ans
  2524.     switchTo 'ALFA'
  2525. }
  2526.